home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / CHANGE.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  53 lines
  1. 1 PRINT CHR$(26):WIDTH 80
  2. 2 PRINT TAB(33);"CHANGE":PRINT
  3. 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 5 PRINT:PRINT:PRINT
  5. 6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE"
  6. 8 PRINT "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100."
  7. 9 PRINT:PRINT
  8. 10 PRINT "COST OF ITEM";:INPUT A:PRINT "AMOUNT OF PAYMENT";:INPUT P
  9. 20 C=P-A:M=C:IF C<>0 THEN 90
  10. 25 PRINT "CORRECT AMOUNT, THANK YOU."
  11. 30 GOTO 400
  12. 90 IF C>0 THEN 120
  13. 95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";A-P
  14. 100 GOTO 10
  15. 120 PRINT "YOUR CHANGE, $";C
  16. 130 D=INT(C/10)
  17. 140 IF D=0 THEN 155
  18. 150 PRINT D;"TEN DOLLAR BILL(S)"
  19. 155 C=M-(D*10)
  20. 160 E=INT(C/5)
  21. 170 IF E=0 THEN 185
  22. 180 PRINT E;"FIVE DOLLARS BILL(S)"
  23. 185 C=M-(D*10+E*5)
  24. 190 F=INT(C)
  25. 200 IF F=0 THEN 215
  26. 210 PRINT F;"ONE DOLLAR BILL(S)"
  27. 215 C=M-(D*10+E*5+F)
  28. 220 C=C*100
  29. 225 N=C
  30. 230 G=INT(C/50)
  31. 240 IF G=0 THEN 255
  32. 250 PRINT G;"ONE HALF DOLLAR(S)"
  33. 255 C=N-(G*50)
  34. 260 H=INT(C/25)
  35. 270 IF H=0 THEN 285
  36. 280 PRINT H;"QUARTER(S)"
  37. 285 C=N-(G*50+H*25)
  38. 290 I=INT(C/10)
  39. 300 IF I=0 THEN 315
  40. 310 PRINT I;"DIME(S)"
  41. 315 C=N-(G*50+H*25+I*10)
  42. 320 J=INT(C/5)
  43. 330 IF J=0 THEN 345
  44. 340 PRINT J;"NICKEL(S)"
  45. 345 C=N-(G*50+H*25+I*10+J*5)
  46. 350 K=INT(C+.5)
  47. 360 IF K=0 THEN 380
  48. 370 PRINT K;"PENNY(S)"
  49. 380 PRINT "THANK YOU, COME AGAIN."
  50. 390 PRINT:PRINT
  51. 400 INPUT "AGAIN ";ANS$:PRINT
  52. 410 IF LEFT$(ANS$,1)="Y" GOTO 10 ELSE RUN "MENU"
  53.